home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / HYP / R-S / scriptView 1.1 / card_5070.txt < prev    next >
Encoding:
Text File  |  1989-02-26  |  5.0 KB  |  142 lines

  1. -- card: 5070 from stack: in.1
  2. -- bmap block id: 2887
  3. -- flags: 4000
  4. -- background id: 2061
  5. -- name: top
  6.  
  7.  
  8. -- part 25 (button)
  9. -- low flags: 80
  10. -- high flags: 8003
  11. -- rect: left=356 top=279 right=301 bottom=399
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: OK
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   hide card field "noVerify"
  23.   hide button "OK"
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 38 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=68 top=57 right=79 bottom=166
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: 
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   flash 7
  43.   visual effect checkerboard slow
  44.   show card field "Info"
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 39 (field)
  50. -- low flags: 81
  51. -- high flags: 0007
  52. -- rect: left=8 top=22 right=334 bottom=503
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 0
  56. -- font id: 16
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 18
  60. -- part name: Info
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   set scroll of card field "Info" to 0
  64.   hide card field "Info"
  65. end mouseUp
  66.  
  67.  
  68. -- part 44 (button)
  69. -- low flags: 80
  70. -- high flags: A000
  71. -- rect: left=47 top=191 right=236 bottom=105
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 8538 / 8538
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: scriptView
  80. ----- HyperTalk script -----
  81. on mouseUp
  82.   go to stack "INTER SCSI:stack development:scriptView 1.1"
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 46 (field)
  88. -- low flags: 80
  89. -- high flags: 0000
  90. -- rect: left=206 top=26 right=111 bottom=406
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 0
  94. -- font id: 16
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: goScript
  99.  
  100.  
  101. -- part contents for card part 39
  102. ----- text -----
  103. scriptView‚Ñ¢  1.1 :                                                                                                      Oct. 28,1987
  104. scriptView is a utility stack which lists all the objects and scripts of another stack in one field or text file.  This can be very helpful in understanding the structure and operation of the stack and the scripts it contains.  Much faster than poking into each button and card as they're found in the stack.  Operation of the target stack is suspended while the information is being read.
  105.  
  106. This is a shareware stack, if useful or informative send comments and $5.00 to:
  107.      Eldon Benz
  108.      RR2 Box 318                            THANKS!               
  109.      Carbondale, IL  62901                                           CLICK anywhere to close this field.
  110.  
  111.  ‚Ä¢ "Make Button"   makes a button to open scriptView from the home stack.  
  112.  
  113.  ‚Ä¢¬†"Begin"   moves to viewing card.
  114.  
  115.  ‚Ä¢¬†"View Script"   prompts for stack to open, reads scripts and puts them in the view field.  Output is to the screen but a permanent text file or printout can be made by clicking the appropriate button.
  116. Reading can take awhile on complex stacks.  Progress is noted in the message box and changing cards of the object stack.
  117. Fields won't hold more than 30,000 characters - that's a lot of scripts.  If scripts exceed field capacity  the first 30k will be shown with an option to create a text file with everything up to about 45k.  Unpredictable and unrecoverable memory problems        (read system BOMB) can develop beyond 45k.  I've set a limit (hopefully low enough to avoid problems) to cut off reading at this point and save the results.  HyperCard really needs some better memory management.  To read larger stacks with complex scripts use "File Scripts"
  118.  
  119.  ‚Ä¢¬†"File Scripts"   avoids the memory and field length limitations by writing the information gathered directly to a text file on disk.  Then open the text file with a word processor.  The only limitation is disk space and a little extra time.  The first 30k will still be displayed on screen. 
  120.  
  121.  ‚Ä¢ Text Files will be saved to the disk and folder which contains the HyperCard‚Ñ¢ application.  If this is not desired type in a pathname when asked for the file to save to.  First type the disk name (if desired) and a colon :  then the folder name (if desired) and a colon :  then the file name.  Opening an existing file will destroy the original contents.
  122.  
  123. This is a shareware stack, if useful or informative send comments and $5.00 to:
  124.      Eldon Benz
  125.      RR2 Box 318                            THANKS!
  126.      Carbondale, IL  62901
  127.                                     Copyright ¬© Oct 28,1987 by Eldon Benz
  128.  
  129. Thanks to Steve Maller at Apple for creating the "XFCN" for standard file interface.
  130.  
  131.  
  132.  
  133. -- part contents for background part 32
  134. ----- text -----
  135. ELDON BENZ RR2 BOX 318 CARBONDALE IL 62901 SEPT 20,1987
  136.  
  137. -- part contents for card part 46
  138. ----- text -----
  139. on mouseUp
  140. go to stack "INTER SCSI:stack development:scriptView 1.1"
  141. end mouseUp
  142.